13215 GOSUB16000
13216 IF LEFT$<Y5$.2)="AS"THENY=(INT(10*VAL(MID$(Y5$.3.9))))/10:}RETURN
13218 GOSUB14950
13250 Y1$="RX-SENS. F.S/N":REM*******66
13251 Y7=Y:Y=.6*X(8):GOSUB10550
13252 Y5$="BB“+MID$(STR$(Y7).2.8>+“.":GOSUB16010:GOSUB16000
13253 IFLEFT$(Y5$.2)="BB"THEN13305
13254 GOTO14950
13300 Y1$="RX-SENS.F.SINAD":REM******67
13301 Y7=Y:Y=.6*X(8=:GOSUB10550
13302 IFYS$<>“A"THEN13305
13303 IFYE=1THENY5$=“BO4.":GOSUB16010
13304 IFYE=0THEHY5$=“BO3.":GOSUB16010
13305 YE=0
13312 Y5$="AS"+MID$(STR$(Y7).2.8)+".":GOSUB16010:GOSUB16000
13313 IF LEFT$(Y5$.2)="AS"THEN13315
13314 GOTO14950

13315 Y=UAL<LEFT%<3TR$(223*18*(<UAL(HID$(Y55.3.BJ)/28)+3)).5)>LRETURN
13358 YL$=“GUIETING*SEH3."ZREHI***K¥I6B
13351 Y=8:GOSUB18458:GOSUB11358IY2=Y/181Y=1IGGSUB18458IY=8!GD3UB18558:Y1
13352 Y=Y1rGOSUB184B8IGD3UH1135EIIFA33((Y—Y2)/Y2)<.2THEN13354
13353 Y1=Y1*(1+Y/Y2)/2}EDTD13352
13354 Y=(INT(188*Y1bl/188IRHTURN
13488 Y1$=“RX-EANDHIDTH éDE":RENX**X*69
13481 ‘rC=8: ‘rD=B: Y4=¤. 8864: `1“7=8. 2: Y=B: E;USUB1B558: Y=B: GD!51JE=1B45B: ‘¤'=1B: GIIISIJE
13482 Y8BB=T/3.16:Y=11GOSUB18458
13483 Y=Y7:3G3UB184881Y=4IGUSUH11B58
13484 IF mB5(Y~Y3)<.2*YBTHEN YB=Y:GDTU13486
13485 Y7=Y?#l1+Y/YS)/2IGBTD13483 .
13486 T=Y7$2!GOSUB3UB18488LY¤4:GOSUB11H58:YE=Y:GOSUB13418
13487 Y5=Y6:Y4=—Y4:GOSUB13418
13483 Y=X(1}:GOSUB18358
13489 Y¤(INT((Y5~Y6>*18888>J/18:Y1=(IHT((((Y5+Y6)/2)»X(1))X18888))/18H%
13418 Y6=X(1):Y?=1
13411 Y6¤Y6+Y4/Y9:IFY6¤YCTHEN13417
13412 YC=YDIYD=YéIY¤Y6:GD3UB18358IY¤4:GOSUB11B58
13413 IF hHS<Y-YB}<.1*Y8THENRETURN
13414 IFQBS(YB~Y)>9SS(Y—YB)THENY?=Y9/2
13415 IFAB5(Y9>=64THENY9=32
13416 Y9¤SGN(YB~Y)KnE3tY9¥2):YB=Y:GOTO13411
13417 Y6=(Y6+YD)/2IRETURN
13453 Ylam"- ···-- ——-wm-~~-~~~":REM**X*#*$78
13451 RETURN
13588 Y1$=“HUD.ADC.HHNDHIDTH"lREM***#?1
13581 Y=12:GOSUB133881Y=2*YIGOSUB1848BIY1=é8:YH=48
13582 Y=Y1IEGSU313288:YK=RB5(Y~12):IFYK<7THENYH¤B8£IFYK<1.5THEN13584
13583 Y1=T1*18*<(Y-12)/YH)IGOTO13582
13584 Y=68IGOSUB3132B81Y=(INT(Y1*X<B))D/58LRETURN
13553 Y1$¤"5GUELDH ":REH£K***¥**¥**¥¥72
13551 Y1=.22
13552 Y1=Y1*1.5:Y¢Y1iGOSUB18488;GOSUB11358:IFY<58THEN13552
13553 Y=~1:GOSUB18588:GOSUB18588:Y1=Y1*.97?IGOSUB11358?IFY}58THEN135$3
13554 Y2=Y1:Y1={INT(Y1*188?J/188
13555 Y2=Y2/.977:Y=Y2:GOSUB184B8:GOSUB11358:IFY<58THEN13555
13556 Y2¤(INT(Y2K188))/188:Y=(INT(28BILUG(Y2/Y1>/LUG<18)>>/IBLRETURN
13688 Y1$¤"~—~—~—-—-———--“:REH$****##?3
13681 3UTU13558
13658 Y1$¤"~-———---------"IREH***##$#74
13651 RETURN
L3788 Y1$="~—·——~~~~~· ···-·· ~~-~":REM*¥X****75
13781 RETURN
13758 Y1$¤"RX.HUD.FREHU.RE3P."I HHKXX76
13?;·»;·. =i->¤.1€s¤.=l=·! |i·‘·‘· '-‘·F1QlJB1 8758
13752   M - - ·<} : r:rJsLlE¤:LB558: GOSUB1135B: Y(B1=Y
13753 FDRYB¤1TDY9:Y=X(28+YB)IGOSUB1B75B:GDGUE11358
13?54 Y<Y3)=(INT(28B*LDD(Y/Y(8JJ/LUG£18)))/18:NEXTYS
13755 Y=1IGOSUB1B75B:RETURN
13888 Y1$¤"DUPLEXEH-CHECK"}REM****tX$77
13881 Y=12}GOSUB13388!Y2¤YLGUSU311?58:Y=X<1J:GD3UB18358lY=12IGG5UB13388